Delphi Programmer's Power Pack/Delphi Volume 1.iso/e_to_l/edsspell/filtfrm.dfm/filtfrm.txt

Text File | 1996-09-15 | 8KB | 435 lines

object FilterForm: TFilterForm
  Left = 199
  Top = 101
  ActiveControl = Field1
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Filter Records'
  ClientHeight = 220
  ClientWidth = 433
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  Scaled = False
  OnActivate = FormActivate
  OnShow = FormShow
  TextHeight = 13
  object Label1: TLabel
    Left = 73
    Top = 12
    Width = 101
    Height = 16
    AutoSize = False
    Caption = 'Field:'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Left = 198
    Top = 12
    Width = 96
    Height = 16
    AutoSize = False
    Caption = 'Comparison:'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label3: TLabel
    Left = 300
    Top = 12
    Width = 113
    Height = 16
    AutoSize = False
    Caption = 'Compare to:'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Bevel1: TBevel
    Left = 5
    Top = 198
    Width = 421
    Height = 12
    Shape = bsTopLine
  end
  object Operator1: TComboBox
    Tag = 1
    Left = 198
    Top = 30
    Width = 97
    Height = 20
    Style = csDropDownList
    ItemHeight = 13
    Items.Strings = (
      'is Blank'
      'is Not Blank'
      'Equal to'
      'Not Equal to'
      'Greater Than'
      'LessThan'
      'Greater or Equal to'
      'Less or Equal to')
    TabOrder = 1
  end
  object Value1: TEdit
    Tag = 1
    Left = 300
    Top = 30
    Width = 121
    Height = 20
    TabOrder = 2
  end
  object Link2: TComboBox
    Tag = 2
    Left = 11
    Top = 52
    Width = 58
    Height = 20
    Style = csDropDownList
    ItemHeight = 13
    Items.Strings = (
      '(none)'
      'And'
      'Or')
    TabOrder = 3
    OnChange = LinkChange
    OnExit = LinkExit
  end
  object Link3: TComboBox
    Tag = 3
    Left = 11
    Top = 74
    Width = 58
    Height = 20
    Style = csDropDownList
    Enabled = False
    ItemHeight = 13
    Items.Strings = (
      '(none)'
      'And'
      'Or')
    TabOrder = 7
    OnChange = LinkChange
    OnExit = LinkExit
  end
  object Operator2: TComboBox
    Tag = 2
    Left = 198
    Top = 52
    Width = 97
    Height = 20
    Style = csDropDownList
    Enabled = False
    ItemHeight = 13
    Items.Strings = (
      'is Blank'
      'is Not Blank'
      'Equal to'
      'Not Equal to'
      'Greater Than'
      'LessThan'
      'Greater or Equal to'
      'Less or Equal to')
    TabOrder = 5
  end
  object Value2: TEdit
    Tag = 2
    Left = 300
    Top = 52
    Width = 121
    Height = 20
    Enabled = False
    TabOrder = 6
  end
  object Link4: TComboBox
    Tag = 4
    Left = 11
    Top = 96
    Width = 58
    Height = 20
    Style = csDropDownList
    Enabled = False
    ItemHeight = 13
    Items.Strings = (
      '(none)'
      'And'
      'Or')
    TabOrder = 11
    OnChange = LinkChange
    OnExit = LinkExit
  end
  object Operator3: TComboBox
    Tag = 3
    Left = 198
    Top = 74
    Width = 97
    Height = 20
    Style = csDropDownList
    Enabled = False
    ItemHeight = 13
    Items.Strings = (
      'is Blank'
      'is Not Blank'
      'Equal to'
      'Not Equal to'
      'Greater Than'
      'LessThan'
      'Greater or Equal to'
      'Less or Equal to')
    TabOrder = 9
  end
  object Value3: TEdit
    Tag = 3
    Left = 300
    Top = 74
    Width = 121
    Height = 20
    Enabled = False
    TabOrder = 10
  end
  object Link5: TComboBox
    Tag = 5
    Left = 11
    Top = 118
    Width = 58
    Height = 20
    Style = csDropDownList
    Enabled = False
    ItemHeight = 13
    Items.Strings = (
      '(none)'
      'And'
      'Or')
    TabOrder = 15
    OnChange = LinkChange
    OnExit = LinkExit
  end
  object Operator4: TComboBox
    Tag = 4
    Left = 198
    Top = 96
    Width = 97
    Height = 20
    Style = csDropDownList
    Enabled = False
    ItemHeight = 13
    Items.Strings = (
      'is Blank'
      'is Not Blank'
      'Equal to'
      'Not Equal to'
      'Greater Than'
      'LessThan'
      'Greater or Equal to'
      'Less or Equal to')
    TabOrder = 13
  end
  object Value4: TEdit
    Tag = 4
    Left = 300
    Top = 96
    Width = 121
    Height = 20
    Enabled = False
    TabOrder = 14
  end
  object Operator5: TComboBox
    Tag = 5
    Left = 198
    Top = 118
    Width = 97
    Height = 20
    Style = csDropDownList
    Enabled = False
    ItemHeight = 13
    Items.Strings = (
      'is Blank'
      'is Not Blank'
      'Equal to'
      'Not Equal to'
      'Greater Than'
      'LessThan'
      'Greater or Equal to'
      'Less or Equal to')
    TabOrder = 17
  end
  object Value5: TEdit
    Tag = 5
    Left = 300
    Top = 118
    Width = 121
    Height = 20
    Enabled = False
    TabOrder = 18
  end
  object Link6: TComboBox
    Tag = 6
    Left = 11
    Top = 140
    Width = 58
    Height = 20
    Style = csDropDownList
    Enabled = False
    ItemHeight = 13
    Items.Strings = (
      '(none)'
      'And'
      'Or')
    TabOrder = 19
    OnChange = LinkChange
    OnExit = LinkExit
  end
  object Operator6: TComboBox
    Tag = 6
    Left = 198
    Top = 140
    Width = 97
    Height = 20
    Style = csDropDownList
    Enabled = False
    ItemHeight = 13
    Items.Strings = (
      'is Blank'
      'is Not Blank'
      'Equal to'
      'Not Equal to'
      'Greater Than'
      'LessThan'
      'Greater or Equal to'
      'Less or Equal to')
    TabOrder = 21
  end
  object Value6: TEdit
    Tag = 6
    Left = 300
    Top = 140
    Width = 121
    Height = 20
    Enabled = False
    TabOrder = 22
  end
  object Panel1: TPanel
    Left = 0
    Top = 182
    Width = 433
    Height = 38
    Align = alBottom
    Alignment = taLeftJustify
    TabOrder = 23
    object NoteLabel: TLabel
      Left = 3
      Top = 3
      Width = 254
      Height = 27
      AutoSize = False
      Caption =
        'For partial matches use '#39'..'#39' at the end of the Compare to value ' +
        'and Comparison '#39'Equal'#39'.'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object OKBtn: TBitBtn
      Left = 261
      Top = 4
      Width = 80
      Height = 30
      TabOrder = 0
      OnClick = OKBtnClick
      Kind = bkOK
    end
    object CancelBtn: TBitBtn
      Left = 345
      Top = 4
      Width = 80
      Height = 30
      TabOrder = 1
      Kind = bkCancel
    end
  end
  object Field1: TDBFieldCombo
    Left = 74
    Top = 30
    Width = 119
    Height = 20
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 0
    DataSource = DataSource1
    UseFieldNames = False
  end
  object Field2: TDBFieldCombo
    Left = 74
    Top = 52
    Width = 119
    Height = 20
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 4
    DataSource = DataSource1
    UseFieldNames = False
  end
  object Field3: TDBFieldCombo
    Left = 74
    Top = 74
    Width = 119
    Height = 20
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 8
    DataSource = DataSource1
    UseFieldNames = False
  end
  object Field4: TDBFieldCombo
    Left = 74
    Top = 96
    Width = 119
    Height = 20
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 12
    DataSource = DataSource1
    UseFieldNames = False
  end
  object Field5: TDBFieldCombo
    Left = 74
    Top = 118
    Width = 119
    Height = 20
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 16
    DataSource = DataSource1
    UseFieldNames = False
  end
  object Field6: TDBFieldCombo
    Left = 74
    Top = 140
    Width = 119
    Height = 20
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 20
    DataSource = DataSource1
    UseFieldNames = False
  end
  object DataSource1: TDataSource
  end
end